Sub muestra_Do_Loop_Until()
    Dim a As Integer
    a = 5
    Do
        Debug.Print "a = " & a
        a = a - 1
    Loop Until a <= 0
End Sub
